Labels:text | menu | screenshot | black and white | font OCR: with TEXT_BOU WSe TEXT_101 Procedure LEBIT Is ! constant 1: 004 HOOK LINE MUPEER : constant == 29_399: Record LIS : INTEGER PHE . .. MAX_LENGTH == OF MAL : STRINGIS .. MAX_LENGTHI; luge P is access LINK: Luge LINK Is record LINE POSITIVE! RENT TEXT: P 18 By LINK: INTUIT FILE FILE_TYPE: OUTPUT FILE I FILE_TEPE: INPUT TEXTE LIME HUM BOOLEAN 1. FALSEI HATLEGAL B. 304 function STHAT : In TEXT) return STRING Is separated procedure READ_INPUT_FILE is separate: procedure 10_commits is separate: Mitt"Bepat file: "); GET_LINE( INPUT, UML, INNUIT-LEXI; RING_INPUT_FILE: FUT( Output file: "); GET_LINES INPUT.WE .. INPUT_LEXI CREATEDOUTPUT_FILE, NAME => STRA INPUTPRI Get and process connands. while not FINISHED loop ed Loop: - Write the output file. TAPP ER HEAD NEXT: - Ship amused link at start of linked list. while TIP /s mell loog PUT LINESOUTPUT_FILE. STRETERP.LINERDE TIMP 1. TEMP.NEXTI Write line of text. end loop! Get next llak. CLOSE (OUTPUT_FILEN! separate CLEBIT) function STRET : In TEXT) return STRING Is begin returs T aL41 .. T.LXN>; separate CLEBIT) Procedure READ_INPUT_FILE Ex If the Input file exists, peint a message and read It Is. OPENC INPUT_FILE, IN FILE, STRCINPUTIN! PUIT_LIME( Tile found. "): GET_LINES INPUT_FILE, INPUT JAL, INPUT, LINS; Read a line TIPP NEXT 18 DEM LINK' CLINE MER, INUT, 11): -- fuld to list. TIME EN TERE NEXT: LINE MOMS 1. LINE HUM . 10g - finance polster to next Ilsk. CLOSE ( INPUT_FILEN xceptlos If the Input file doesn't exist. just print a ne when NAME_ERROR .} PUT_LIME('Tile not found." READ_INPUT_FILE: separate (LEBIT) eucolure 10_comto_is procedure BELETE FIRST CHARACTERIT : In out TEXT) is separate; procedure GET LEADING INTEGERON ; ou( NATURAL) Is separatei procedure STRIP LEADING SPICES_FROM_INPUT Is separatel procedure ARD_DELETE_REPLACE_LINE is separatel procedure LIST is separate! IF SERCINPUT) . "exit" or SER(INPUT) . "DIE" thee TIMESHIER :" TRUEE: elsif INPUT LEX 2 0 and INPUT ,umL411 not in 'g' .. "y" then PUT_LINES"Wrecognized comand. ""}] Y then elsif INPIT.LEN 3 0 thes IF LINE MUM not In 1 .. HUK_LINE_HUPNER thes PUT_LINE("Illegal line number. "): ABD_BELETE_REPLACE_LINE: sceglios when MITERIC ERROR | CONSTRAINT_ERROR 1} PUT LINES"Line menber too large.")1 separate CLEBIT.DO_COPPIAD) IMP : TEXT :" INPUT: IF INF LE > 6 and INP.MILES) . " " then - Treat "" like "9 x" DELETE_FIRST_CHARACTER ( BNP ); Find where this menber belongs in linked list. while TEMP /s mell and thes TEMP .NEXT de mull and then IF TEMP MEXT.HUM . LIME JUM then TEMP NEXT.HUM <" LINE MUM loop TEMP MEXT 1. TEMP.NEXT NEXT! -- Delete Ilme. TOP 1" TEMP . HEXE: -- Aluance to next link Im list. ir IN/ut LE > % then TIPP NEXT 18 ROM LINK' CLINE JEM, INP. TOPP _NEXT3; 100_DELETE_REPLACE_LIME: separate CLEBIT.DO_COPEWHO) procedure DELETE_FIRST_OWOMICTERKT : in out TEXT3 Is T.ULCE .. T.LEN - 19 :" TUMLCZ . . T.LEM): separate (LEBIT.DO_COMEW)) rucolure GET LEADING_INTEGERON : OH! NATURAL.> Es AHST INTEGER 1. 01 while INPIT.LEM 3 0 and INPUT __ L41) in '0' ' loop GET_LEADING_INTEGER; separate (LESIT.DO_COMEW)) while IMPUIT.LEX 3 0 and INPUT.LA1) . DELETE_FIRST_CHARACTERC INNUIT !! loop and loop: separate CLEBIT.DO_COPFWAS> excelure LIST is package 198 is new INTEGER_DOC INTELEX; wse 11; WIEID INPUT.LIN 1. INPUT.LEN - = Delete the name of the c INPUT MALES .. INPUT. LIN3 :" INPUT. MILIS .. IMPUIT.LEN . 41 IF IMPUIT-LE . 0 then -- For "LIST" alone, list all Ilmes. START =" #: FINESE =" TAK_LINE_NUMBER . 1: STREP LEADING SENCES_PR_INPUT: Get minber after "LIST". IF INPUT.LEX . 0 thes FINIS 18 STANTI For "List .". list only lime .. thaif INPUT. WILLLD += '_' then must follow .. VALID 1= FALSE! DELETE_FIRST_OWOCECRC INPUTH: -- Delete the "_ GET_LEADING_INTEGERCE B 190): STRIP LEADING_SPACE !_ FROM_INPUT: - Get minber after "-" IF FINISH . 0 and Stakt . . then - "LIST -" Isn't walld. thaif FINISH . o thes FINISH 1. MAX_LINE NUMBER . 11 " For "LIST a -". list n theoegh esd. WALID 1" WLID and INPUT.LEM . 0! trailing garbage. if not VALID then PIT_LINES"Illegal sapatas for LIST. "); TOP EN MEAD,NEXT; Ship amused link at start of linked list. while TEP ze mall and then TERP.MUM <= FINES Joep IF TEMP MUM }: START thes PUIT(TENE .MUM. WERDE => SHI PUT_LINEA" . & STICTEMP.LINEINI . Friat live number, width 5. - Print text of Ilse. TEMP 1. TEMP .NEXT: - Get next Ilak. acegt los Miles NUMERIC_ERROR | CONSTRAINT_ERROR .O MIT LINE!"Line manier too large in LIST. ">;
(.png)
